set serveroutput on
create or replace
PROCEDURE dodaj_obrazek
  (nazwa IN VARCHAR2
  )
  AS
  BEGIN
  DECLARE
  obraz ORDImage;
    ctx RAW(64) := NULL;
    row_id urowid;
  BEGIN 
  INSERT INTO obrazki (id_obrazka, nazwa_pliku, obrazek)
             VALUES (obrazki_seq.nextval, nazwa, ORDImage.init('FILE', 'MEDIA_FILES',nazwa))
                                   RETURNING obrazek, rowid INTO obraz, row_id;
    obraz.import(ctx); -- ORDImage.import wywołuje ORDImage.setProperties;
    UPDATE obrazki SET obrazek = obraz WHERE rowid = row_id;  --aktualizacja tabeli o atrybuty obrazów
    COMMIT;
    END;
end dodaj_obrazek;